home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / macro / update / splitgedconfs < prev    next >
Encoding:
Text File  |  1997-02-16  |  2.4 KB  |  88 lines
  1. .
  2. ; SplitGEDConfs
  3. ;
  4. ; $VER: SplitGEDConfs 1.00 (22.10.94)
  5. ;
  6. ; (c) 1994 by Wolfgang Küting <wolfi@pit.owl.de>
  7. ;
  8. .KEY hilfe/S,quiet/S,ask/S,from/K,to/K
  9. .BRA {
  10. .KET }
  11.  
  12. ;If NOT "{hilfe}" EQ ""
  13. If {hilfe}
  14.   Echo "*N*E[1;32mSplitGEDConfs V1.00*E[28;22m (22.10.94)"
  15.   Echo "(c) 1994 by Wolfgang Küting <wolfi@pit.owl.de>*N"
  16.   Echo "Splitte alle Config-Dateien von *E[3mGoldEd*E[23m in *E[1m<ENVARC:GoldEd/>*E[22m auf"
  17.   Echo "und schreibt die Einzeldateien nach *E[1m<GoldEd:Configs/>*E[22m."
  18.   Echo "Dazu wird *E[1m<SplitConfig>*E[22m aus dem *E[3mGoldEd*E[23m-Archiv in *E[1m<GoldEd:>*E[22m"
  19.   Echo "benötigt.*N"
  20.   Echo "  SplitGEDConfs hilfe/S,quiet/S,ask/S,from/K,to/K*N"
  21.   Echo "    *E[32mhilfe/S*E[0m    Diese Info :-)"
  22.   Echo "    *E[32mquiet/S*E[0m    Keine Ausgaben im Shell-Fenster"
  23.   Echo "    *E[32mask/S*E[0m    Frage nach Verzeichnissen"
  24.   Echo "    *E[32mfrom/K*E[0m   Quellverzeichnis   (Vorgabe: <ENVARC:GoldEd/>)"
  25.   Echo "    *E[32mto/K*E[0m   Zielverzeichnis  (Vorgabe: <GoldEd:Configs/>)*N"
  26.   Quit
  27. EndIf
  28.  
  29. If "{from}" EQ ""
  30.   Set source "ENVARC:GoldEd/"
  31. Else
  32.   Set source {from}
  33. EndIf
  34. If "{to}" EQ ""
  35.   if NOT EXISTS GoldED:Configs
  36.       makedir GoldED:Configs
  37.   EndIf
  38.   Set target "GoldEd:Configs/"
  39. Else
  40.   Set target {to}
  41. EndIf
  42.  
  43. If {ask}
  44.   Set source `RequestFile TITLE "Wähle Quellverz. ..." DRAWER $source DRAWERSONLY`
  45.   Set target `RequestFile TITLE "Wähle Zielverz. ..." DRAWER $target DRAWERSONLY`
  46. EndIf
  47.  
  48. If NOT EXISTS SplitConfig
  49.   If {quiet}
  50.     RequestChoice TITLE "SplitGEDConfs 1.00" BODY "Kann*N<GoldEd:SplitConfig>*Nnicht finden!" GADGETS "*Okay" >NIL:
  51.   Else
  52.     Echo "Kann *E[1m<GoldEd:SplitConfig>*E[22m nicht finden!"
  53.   EndIf
  54.   Quit 20
  55. EndIf
  56.  
  57. LAB CheckSource
  58. If NOT EXISTS "$source"
  59.   Set source `RequestFile TITLE "Verz. exestiert nicht..." DRAWER $source DRAWERSONLY`
  60.   If "$source" EQ ""
  61.     Quit 5
  62.   EndIf
  63.   Skip CheckSource BACK
  64. EndIf
  65. If NOT EXISTS "$target"
  66.   MakeDir "$target"
  67. EndIf
  68.  
  69. If {quiet}
  70.   List "$source#?.prefs" FILES LFORMAT "SplitConfig *"%P%N*" *"$target*" *"%M*" >NIL:" >T:SGEDC_{$$}.BAT
  71. Else
  72.   Echo "Echo *"Splitte von *E[32m$source*E[0m nach *E[32m$target*E[0m*"" >T:SGEDC_{$$}.BAT
  73.   List "$source#?.prefs" FILES LFORMAT "Echo *" » *E[32m%N*E[0m...*"*NSplitConfig *"%P%N*" *"$target*" *"%M*" >NIL:" >> T:SGEDC_{$$}.BAT
  74. EndIf
  75.  
  76. Echo "$target" >$target.list
  77. List "$source#?.prefs" FILES LFORMAT "%M" >>$target.list
  78.  
  79. If EXISTS T:SGEDC_{$$}.BAT
  80.   Execute T:SGEDC_{$$}.BAT
  81.   Delete >NIL: T:SGEDC_{$$}.BAT QUIET
  82. EndIf
  83.  
  84. UnSet target
  85. UnSet source
  86.  
  87. Quit
  88.